*********************************
***  Trump paper - Figure 1
*** Created: 31/10/2020
*** Last updated: 21/05/2021
clear all
set scheme plottig
 

	local user = 1		/* user 1 = sergi, user 2 = Anja */

	if `user' == 1 {			// input relevant file path as per your computer

		global		main "/Users/aneundorf/Dropbox/Project_Populism/BA project/Analysis/Trump_Replication files/"
		global 		graphs 			"${main}Graphs/"
		global 		results			"${main}Results/"
	}

cd "${main}"
use "Data/US_data_recoded.dta", clear


**-----------------------------
* FIGURE 1: Descriptive feeling therometers

tab1 trump_feeling biden_feeling

corr trump_feeling biden_feeling
bys partisan_cat: sum trump_feeling biden_feeling


twoway(hist trump_feeling, percent bin(100)), xtitle("Feeling towards Trump (0=cold; 100=warm)", size(medlarge)) title("A. Feeling towards Trump", size(vlarge))  ylabel(0(10)40, labsize(medsmall)) xlabel(, labsize(medsmall)) ytitle("Percent", size(medlarge)) name(Trump, replace) 

twoway(hist biden_feeling , percent bin(100)), xtitle("Feeling towards Biden (0=cold; 100=warm)", size(medlarge)) title("B. Feeling towards Biden", size(vlarge)) ylabel(0(10)40, labsize(medsmall)) xlabel(, labsize(medsmall)) ytitle("Percent", size(medlarge)) name(Biden, replace) 

graph combine Trump Biden , row(1) graphregion(fcolor(white) lc(black)) xsize(9) ysize(5) 
graph save  "${graphs}Figure1.gph",  replace
graph export  "${graphs}Figure1.pdf", as(pdf) replace
